home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / MONOGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-21  |  128 b   |  4 lines
  1. 8  CLS
  2. 10  DEF SEG=0:A=PEEK(&H410):POKE &H410,A OR &H30:WIDTH 80:LOCATE ,,1,12,13:COLOR 15,9,4:CLS:KEY OFF
  3. 20  END
  4.